home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CreatingGames / Utilities / Asm / AB3DIIsrc / source_4000 / titlecop.s < prev    next >
Encoding:
Text File  |  1996-07-06  |  4.4 KB  |  383 lines
  1. TITLEPAL:
  2.  incbin "ab3:includes/NEWTITLEPAL"
  3.  
  4. titlecop:
  5.  dc.w intreq,$8010
  6.  
  7.  dc.w $10c,$0088
  8.  
  9.  dc.w $1fc,$f
  10.  dc.w diwstart,$2c81    ; Top left corner of screen.
  11.  dc.w diwstop,$2cc1     ; Bottom right corner of screen.
  12.  dc.w ddfstart,$38      ; Data fetch start.
  13.  dc.w ddfstop,$b8       ; Data fetch stop.
  14.  
  15.  dc.w bplcon0
  16. titleplanes: dc.w $7201
  17.  dc.w bplcon1
  18.  dc.w $0
  19.  
  20.  dc.w $106,$c40
  21.  
  22.  dc.w spr0ptl
  23. tsp0l:
  24.  dc.w 0
  25.  dc.w spr0pth
  26. tsp0h:
  27.  dc.w 0
  28.  dc.w spr1ptl
  29. tsp1l:
  30.  dc.w 0
  31.  dc.w spr1pth
  32. tsp1h:
  33.  dc.w 0
  34.  dc.w spr2ptl
  35. tsp2l:
  36.  dc.w 0
  37.  dc.w spr2pth
  38. tsp2h:
  39.  dc.w 0
  40.  dc.w spr3ptl
  41. tsp3l:
  42.  dc.w 0
  43.  dc.w spr3pth
  44. tsp3h:
  45.  dc.w 0
  46.  dc.w spr4ptl
  47. tsp4l:
  48.  dc.w 0
  49.  dc.w spr4pth
  50. tsp4h:
  51.  dc.w 0
  52.  dc.w spr5ptl
  53. tsp5l:
  54.  dc.w 0
  55.  dc.w spr5pth
  56. tsp5h:
  57.  dc.w 0
  58.  dc.w spr6ptl
  59. tsp6l:
  60.  dc.w 0
  61.  dc.w spr6pth
  62. tsp6h:
  63.  dc.w 0
  64.  dc.w spr7ptl
  65. tsp7l:
  66.  dc.w 0
  67.  dc.w spr7pth
  68. tsp7h:
  69.  dc.w 0
  70.  
  71.  dc.w $2001,$ff00
  72.  
  73.  dc.w $106,$c40
  74.  
  75. TITLEPALCOP:
  76. val SET $180
  77.  REPT 32
  78.  dc.w val,0
  79. val SET val+2
  80.  ENDR 
  81.  
  82.  dc.w $106,$2c40
  83. val SET $180
  84.  REPT 32
  85.  dc.w val,0
  86. val SET val+2
  87.  ENDR
  88.  
  89.  dc.w $106,$4c40
  90. val SET $180
  91.  REPT 32
  92.  dc.w val,0
  93. val SET val+2
  94.  ENDR 
  95.  
  96.  dc.w $106,$6c40
  97. val SET $180
  98.  REPT 32
  99.  dc.w val,0
  100. val SET val+2
  101.  ENDR
  102.  
  103. val SET $180
  104.  dc.w $106,$e40
  105.  REPT 32
  106.  dc.w val,0
  107. val SET val+2
  108.  ENDR 
  109.  
  110.  dc.w $106,$2e40
  111. val SET $180
  112.  REPT 32
  113.  dc.w val,0
  114. val SET val+2
  115.  ENDR
  116.  
  117.  dc.w $106,$4e40
  118. val SET $180
  119.  REPT 32
  120.  dc.w val,0
  121. val SET val+2
  122.  ENDR 
  123.  
  124.  dc.w $106,$6e40
  125. val SET $180
  126.  REPT 32
  127.  dc.w val,0
  128. val SET val+2
  129.  ENDR
  130.  
  131.  dc.w $106,$c40
  132.  dc.w $180
  133. CRASHTEST:
  134.  dc.w 0
  135.  
  136.  
  137.  dc.w $106,$8c40
  138. OPTSCRNCOP:
  139. val SET $180
  140.  REPT 8
  141.  dc.w val,$fff
  142. val SET val+2
  143.  dc.w val,$fff
  144. val SET val+2
  145.  dc.w val,$500
  146. val SET val+2
  147.  dc.w val,$fff
  148. val SET val+2
  149.  
  150.  ENDR 
  151.  dc.w $106,$ac40
  152. val SET $180
  153.  REPT 32
  154.  dc.w val,$fff
  155. val SET val+2
  156.  ENDR
  157.  
  158.  dc.w $108,0
  159.  dc.w $10a,0
  160.  
  161.  dc.w bpl1ptl
  162. ts1l:
  163.  dc.w 0
  164.  dc.w bpl1pth
  165. ts1h:
  166.  dc.w 0
  167.  
  168.  dc.w bpl2ptl
  169. ts2l:
  170.  dc.w 0
  171.  dc.w bpl2pth
  172. ts2h:
  173.  dc.w 0
  174.  
  175.  dc.w bpl3ptl
  176. ts3l:
  177.  dc.w 0
  178.  dc.w bpl3pth
  179. ts3h:
  180.  dc.w 0
  181.  
  182.  dc.w bpl4ptl
  183. ts4l:
  184.  dc.w 0
  185.  dc.w bpl4pth
  186. ts4h:
  187.  dc.w 0
  188.  
  189.  dc.w bpl5ptl
  190. ts5l:
  191.  dc.w 0
  192.  dc.w bpl5pth
  193. ts5h:
  194.  dc.w 0
  195.  
  196.  dc.w bpl6ptl
  197. ts6l:
  198.  dc.w 0
  199.  dc.w bpl6pth
  200. ts6h:
  201.  dc.w 0
  202.  
  203.  dc.w bpl7ptl
  204. ts7l:
  205.  dc.w 0
  206.  dc.w bpl7pth
  207. ts7h:
  208.  dc.w 0
  209.  
  210.  dc.w $106,$8c40
  211.  
  212. OPTCOP:
  213.  
  214. val SET $2c
  215.  REPT 32
  216.  dc.b val,$01,$ff,$00
  217.  dc.w col1,$f00
  218.  dc.w col5,$f00
  219.  dc.w col9,$f00
  220.  dc.w col13,$f00
  221.  
  222.  dc.w col3,$448
  223.  dc.w col7,$448
  224.  dc.w col11,$448
  225.  dc.w col13+4,$448
  226.  
  227.  dc.w col2,$200
  228.  dc.w col6,$200
  229.  dc.w col10,$200
  230.  dc.w col13+2,$200
  231.  
  232.  dc.b val,$df,$ff,$fe
  233. val SET val+1
  234. val SET val&255
  235.  
  236.  dc.b val,$01,$ff,$00
  237.  dc.w col1,$f00
  238.  dc.w col5,$f00
  239.  dc.w col9,$f00
  240.  dc.w col13,$f00
  241.  
  242.  dc.w col3,$77a
  243.  dc.w col7,$77a
  244.  dc.w col11,$77a
  245.  dc.w col13+4,$77a
  246.  
  247.  dc.w col2,$400
  248.  dc.w col6,$400
  249.  dc.w col10,$400
  250.  dc.w col13+2,$400
  251.  
  252.  
  253.  dc.b val,$df,$ff,$fe
  254. val SET val+1
  255. val SET val&255
  256.  
  257.  dc.b val,$01,$ff,$00
  258.  dc.w col1,$f00
  259.  dc.w col5,$f00
  260.  dc.w col9,$f00
  261.  dc.w col13,$f00
  262.  
  263.  dc.w col3,$aac
  264.  dc.w col7,$aac
  265.  dc.w col11,$aac
  266.  dc.w col13+4,$aac
  267.  
  268.  dc.w col2,$600
  269.  dc.w col6,$600
  270.  dc.w col10,$600
  271.  dc.w col13+2,$600
  272.  
  273.  
  274.  dc.b val,$df,$ff,$fe
  275. val SET val+1
  276. val SET val&255
  277.  
  278.  dc.b val,$01,$ff,$00
  279.  dc.w col1,$f00
  280.  dc.w col5,$f00
  281.  dc.w col9,$f00
  282.  dc.w col13,$f00
  283.  
  284.  dc.w col3,$ccf
  285.  dc.w col7,$ccf
  286.  dc.w col11,$ccf
  287.  dc.w col13+4,$ccf
  288.  
  289.  dc.w col2,$800
  290.  dc.w col6,$800
  291.  dc.w col10,$800
  292.  dc.w col13+2,$800
  293.  
  294.   dc.b val,$df,$ff,$fe
  295. val SET val+1
  296. val SET val&255
  297.  
  298.  dc.b val,$01,$ff,$00
  299.  dc.w col1,$f00
  300.  dc.w col5,$f00
  301.  dc.w col9,$f00
  302.  dc.w col13,$f00
  303.  
  304.  dc.w col3,$ccf
  305.  dc.w col7,$ccf
  306.  dc.w col11,$ccf
  307.  dc.w col13+4,$ccf
  308.  
  309.   dc.w col2,$800
  310.  dc.w col6,$800
  311.  dc.w col10,$800
  312.  dc.w col13+2,$800
  313.  
  314.  
  315.  dc.b val,$df,$ff,$fe
  316. val SET val+1
  317. val SET val&255
  318.  
  319.  dc.b val,$01,$ff,$00
  320.  dc.w col1,$f00
  321.  dc.w col5,$f00
  322.  dc.w col9,$f00
  323.  dc.w col13,$f00
  324.  
  325.  dc.w col3,$aac
  326.  dc.w col7,$aac
  327.  dc.w col11,$aac
  328.  dc.w col13+4,$aac
  329.  
  330.   dc.w col2,$600
  331.  dc.w col6,$600
  332.  dc.w col10,$600
  333.  dc.w col13+2,$600
  334.  
  335.  
  336.  dc.b val,$df,$ff,$fe
  337. val SET val+1
  338. val SET val&255
  339.  
  340.  dc.b val,$01,$ff,$00
  341.  dc.w col1,$f00
  342.  dc.w col5,$f00
  343.  dc.w col9,$f00
  344.  dc.w col13,$f00
  345.  
  346.  dc.w col2,$400
  347.  dc.w col6,$400
  348.  dc.w col10,$400
  349.  dc.w col13+2,$400
  350.  
  351.  
  352.  dc.w col3,$77a
  353.  dc.w col7,$77a
  354.  dc.w col11,$77a
  355.  dc.w col13+4,$77a
  356.  
  357.  dc.b val,$df,$ff,$fe
  358. val SET val+1
  359. val SET val&255
  360.  
  361.  dc.b val,$01,$ff,$00
  362.  dc.w col1,$f00
  363.  dc.w col5,$f00
  364.  dc.w col9,$f00
  365.  dc.w col13,$f00
  366.  
  367.  dc.w col3,$448
  368.  dc.w col7,$448
  369.  dc.w col11,$448
  370.  dc.w col13+4,$448
  371.  
  372.  dc.w col2,$200
  373.  dc.w col6,$200
  374.  dc.w col10,$200
  375.  dc.w col13+2,$200
  376.  
  377.  dc.b val,$df,$ff,$fe
  378. val SET val+1
  379. val SET val&255
  380.  
  381.  ENDR
  382.  
  383.  dc.w $ffff,$fffe